Jak zjistit TEMP directory Windows
Otázka od: Netušil, Roman, Ing.
27. 11. 2002 15:23
Panove,
nevite nekdo jak z Delphi 6 Proff zjistit nazev TEMP adresare Windows a to
s prihlednutim na jednotlive verze 95,98, 2000, XP...
A kdyz uz jsme u toho i slozku "Dokumenty" aktualniho uzivatele?
Diky
Roman
Odpovedá: Ing. Jan Dubský
27. 11. 2002 16:55
function sysTempPath: string;
var
buffer: array[0..1023] of char;
begin
SetString(Result, Buffer, GetTempPath(Sizeof(Buffer)-1,Buffer));
end;
Dne 27. listopad 2002, <delphi-l@clexpert.cz> napsal:
> Panove,
> nevite nekdo jak z Delphi 6 Proff zjistit nazev TEMP adresare Windows a to
> s prihlednutim na jednotlive verze 95,98, 2000, XP...
>
> A kdyz uz jsme u toho i slozku "Dokumenty" aktualniho uzivatele?
______________________________________________________________________
Reklama:
Obchodní dům.cz - široký sortiment domácích spotřebičů a elektroniky, výrazné
slevy. Navštivte http://www.obchodni-dum.cz/index.phtml?prov=59
Odpovedá: Jakub Dusek
27. 11. 2002 15:50
function GetDefaultTempDir: string;
var Len : Integer;
Buff : PChar;
begin
Len := MAX_PATH + 1;
GetMem (Buff, Len);
try
if GetTempPath (Len, Buff) <> 0 then
Result := StrPas (Buff)
else
Result := '';
finally
FreeMem (Buff, Len);
end;
end;
Jakub Dusek
--------------------------------
Homepage : http://dusek.webz.cz
Phone : +420604615795
Sms email : jakub.dusek@click.cz
ICQ: 86063232
Apps : Sms GateKeeper
--------------------------------
Wednesday, November 27, 2002, 1:22:25 PM, you wrote:
NRI> Panove,
NRI> nevite nekdo jak z Delphi 6 Proff zjistit nazev TEMP adresare Windows a
to
NRI> s prihlednutim na jednotlive verze 95,98, 2000, XP...
Odpovedá: Petr Vones
27. 11. 2002 19:40
From: "Netušil, Roman, Ing." <Netusil.Roman@vspardubice.cz>
> nevite nekdo jak z Delphi 6 Proff zjistit nazev TEMP adresare Windows a to
> s prihlednutim na jednotlive verze 95,98, 2000, XP...
>
> A kdyz uz jsme u toho i slozku "Dokumenty" aktualniho uzivatele?
Pouzij funkce GetWindowsTempFolder a GetPersonalFolder v unitu JclSysInfo v
JCL:
http://sourceforge.net/project/showfiles.php?group_id=47514&release_id=118195
Petr Vones